2 REM R2DIVISION BY R.KEAYS MAY1983
3 PRINTCHR$(5):REM TURN ON WHITE
4 POKE53280,0:REM GREEN BORDER
6 FORSV=1TO15STEP5:POKE54296,SV:FORD=1TO10:NEXTD:NEXTSV
11 GOSUB45498:PRINT"R2D2 DIVISION":GOSUB46100
12 FORD=1TO200:NEXTD:GOSUB48100:PRINT"[147]";
13 PRINT"[147]"
14 PRINT"   ------------MENU-----------":PRINT:PRINT
15 PRINT"   1. INSTRUCTIONS TO STUDENTS":PRINT
16 PRINT"   2. INSTRUCTIONS TO TEACHERS":PRINT
17 PRINT"   3. BEGIN PROGRAM.":PRINT
18 PRINT"   4. END THE PROGRAM.":PRINT:PRINT
19 PRINT"TYPE THE NUMBER OF YOUR CHOICE."
20 GETZ$:IFZ$=""THEN20
21 IFZ$<"1"ORZ$>"4"THEN19
22 ONVAL(Z$)GOTO15000,16000,30,9100
23 CP=0:REM*** POD COUNTER ***
24 :
25 SQ=0:REM*** CHOOSE SOUND ***
26 :
27 UN=0:REM*** THE UNIVERSE ***
28 :
30 GOSUB3770:REM*** R2D2 WALKS ***
50 PRINT"[147]";
70 GOSUB3350:REM** ESTABLISH PROBLEM **
72 GOSUB48005
76 PRINT"[147]"
77 GOSUB47000:REM*** R2D2 FRONT VIEW ***
80 PRINT"HERE'S THE STAR  FLEET.":GOSUB9840:GOSUB48000
110 GOSUB4770:REM*** PODS ***
112 :
115 GOSUB47000:REM*** R2D2 FRONT VIEW **
116 FORK=1TO1000:NEXTK
150 PRINT"HOW MANY POD COMMANDERS "
152 PRINT"WILL WE NEED?":GOSUB9840:GOSUB18000
153 INPUT"TYPE THE NUMBER";CO$
154 IFCO$<>"5"THEN190
155 PRINT"[147]":GOSUB47000
156 PRINT"THAT'S RIGHT ";NA$;"!":GOSUB9820:FORD=1TO2000
157 PRINT"":GOSUB18100:GOTO248
190 PRINT"[147]";:GOSUB4770
248 FORD=1TO1000:NEXTD:PRINT"[147]":GOSUB50000
250 PRINT"[147]NOW LET'S TRY TO SOLVE THE PROBLEM      WITHOUT USING A PICTURE."
252 PRINT
270 PRINT"WE WRITE THE PROBLEM THIS WAY."
290 PRINT""
310 PRINT"       [164][164][164][164][164]"
330 PRINT"     31)155"
350 FORK=1TO5000:NEXTK
370 PRINT"        "
390 PRINT"        ^"
410 PRINT
430 PRINT"     THIS MEANS:"
450 PRINT
470 PRINT"HOW MANY GROUPS OF 31 ARE IN 155?":FORK=1TO2000:NEXTK
474 PRINT"OR HOW MANY PODS OF 31 ARE IN 155 SHIPS?":FORK=1TO2000:NEXTK
476 GOSUB18000:REM *** FIDDLEPROOFING**
510 GOSUB48005:REM *** SPACE BAR ***
590 PRINT"[147]";:PRINT""
610 PRINT"       [164][164][164][164][164]"
630 PRINT"     31)155  "
650 PRINT:FORK=1TO2000:NEXTK:POKE1352,177
670 PRINT"NOW WE ASK:"
690 PRINT"HOW MANY GROUPS OF 31 ARE IN 1?":FORK=1TO200:NEXTK
710 PRINT""
720 GOSUB18000:REM***FIDDLEPROOFING***
730 FORK=1TO1000:NEXTK:PRINT""
731 INPUT"TYPE THE NUMBER";A
733 IFA<>0THENGOTO755
737 GOSUB47000
738 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
740 GOTO830
755 GOSUB47000
760 PRINT"YOU CAN'T GET A GROUP OF 31 FROM 1.":GOSUB9840
764 FORD=1TO2000:NEXTD:GOSUB18000:GOSUB48005
830 PRINT"[147]"
850 PRINT"        "
870 PRINT"       [164][164][164][164][164]"
890 PRINT"     31)155"
910 FORK=1TO1000:NEXTK
930 PRINT"THERE ARE NO GROUPS 0F 31 IN 1.":FORK=1TO3000:NEXTK
950 PRINT"";TAB(7);0
970 PRINT"                                                   "
990 FORK=1TO1000:NEXTK:POKE1352,177:POKE1353,181
1010 PRINT"NOW WE ASK:":PRINT
1030 PRINT"HOW MANY GROUPS OF 31 ARE IN 15?"
1050 FORK=1TO1000:NEXTK:PRINT""
1070 PRINT""
1090 PRINT:FORK=1TO2000:NEXTK
1100 GOSUB18000:REM***FIDDLEPROOFING**
1110 INPUT"TYPE THE NUMBER";B
1112 IFB<>0THENGOTO1175
1116 GOSUB47000:REM** R2D2 FRONT VIEW **
1118 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
1120 GOTO1190
1175 GOSUB47000
1177 PRINT" YOU CAN'T GET A GROUP OF 31 FROM 15.":GOSUB9840
1178 FORD=1TO2000:NEXTD:GOSUB18000:GOSUB48005
1190 PRINT"[147]":PRINT
1210 PRINT"";TAB(8);"0"
1230 PRINT"       [164][164][164][164][164]"
1250 PRINT"     31)155 "
1270 FORK=1TO1000:NEXTK
1290 PRINT"THERE ARE NO GROUPS OF 31 IN 15.":FORK=1TO6000:NEXTK
1310 PRINT"";TAB(8);"00"
1330 PRINT"                                                              "
1350 FORK=1TO1000:NEXTK
1370 PRINT"NOW WE ASK:":PRINT
1390 PRINT"HOW MANY GROUPS OF 31 ARE IN 155?":FORK=1TO3000:NEXTK
1410 PRINT""
1450 PRINT""
1470 PRINT"HINT-FLASHING NUMBERS[146]"
1510 FORK=1TO1000:NEXTK
1515 GOSUB17600:REM** FLASHING NUMBER **
1520 GOSUB18000:REM***FIDDLEPROOFING**
1530 PRINT:INPUT"SO HOW MANY 31'S ARE IN 155";C
1534 IFC<>5THENGOTO1555
1540 GOSUB47000
1542 PRINT"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
1544 GOTO1630
1555 GOSUB47000
1560 PRINT"SORRY ";NA$;".":GOSUB9840:PRINT
1565 PRINTTAB(6);"3 + 3 + 3 + 3 + 3 = 15":FORD=1TO3000:NEXTD:PRINT
1566 PRINT"THERE ARE FIVE 3'S IN 15.":GOSUB9840
1567 FORK=1TO3000:NEXTK:GOSUB18000
1568 GOSUB48005:REM*** SPACE BAR ***
1630 PRINT"[147]":PRINT
1650 PRINT"";TAB(8);"00"
1670 PRINT"       [164][164][164][164][164]"
1690 PRINT"     31)155":FORK=1TO2000:NEXTK
1710 PRINT"THERE ARE FIVE 3'S IN 15."
1730 PRINT" SO"
1750 PRINT" THERE ARE PROBABLY FIVE 31'S IN 155.":GOSUB18000:GOSUB48005
1760 GOSUB16100
1770 PRINT"";TAB(8);"00"
1790 PRINT"                                                                "
1810 PRINT"                                                                "
1812 FORFI=0TO6:REM** DROP A FIVE **
1813 POKE1034+(FI*40),53
1814 IFFI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO1816
1815 GOSUB9920:FORD=1TO300:NEXTD
1816 POKE1034+(FI*40),32:NEXTFI
1817 POKE1274,53
1830 FORK=1TO500:NEXTK
1850 PRINT""
1870 PRINT"NOW WE MULTIPLY 5*31 AND PUT "
1890 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
1891 GOSUB17800:FORD=1TO1000:NEXTD:REM****** FLASHING ARROW *****
1899 :
1900 GOSUB18000:REM*** FIDDLEPROOFING *
1901 :
1910 GOSUB48005:REM*** SPACE BAR ***
1911 :
1990 PRINT"[147]":PRINT
2010 PRINT"";TAB(8);"005"
2030 PRINT"       [164][164][164][164][164]"
2050 PRINT"     31)155":FORK=1TO1000:NEXTK
2070 PRINT"5*31 IS 155.":FORK=1TO3000:NEXTK
2090 PRINT"";TAB(7);155
2110 PRINTTAB(8);"[163][163][163]"
2130 PRINT"                                                                   "
2150 FORK=1TO1000:NEXTK
2830 PRINT" SUBTRACT."
2850 FORK=1TO2000:NEXTK:GOSUB18000
2869 :
2870 GOSUB48005:REM*** SPACE BAR ***
2871 :
2950 PRINT"[147]":PRINT
2970 PRINT"";TAB(8);"005"
2990 PRINT"       [164][164][164][164][164]"
3010 PRINT"     31)155 "
3030 PRINTTAB(8);"155"
3050 PRINTTAB(8);"[163][163][163]"
3070 PRINTTAB(8);"000":FORD=1TO2000:NEXTD:PRINT:PRINT:PRINT:PRINT
3078 :
3080 GOSUB18100:REM*** 5 COMMANDERS ***
3082 :
3083 FORK=1TO500:NEXTK
3090 :
3091 REM***** COMMANDER LABEL ******
3092 GOSUB18200:FORD=1TO3000:NEXTD
3093 :
3095 PRINT"[147]":FORD=1TO100:NEXTD
3096 :
3310 PRINT"[147]RIGHT ON ";NA$;"!":GOSUB31200
3311 GOSUB48100:REM*** CANTINA BAND ***
3312 GOSUB31200
3320 PRINT"[147]"
3325 :
3330 GOTO7900:REM** TO DECISION LINE **
3335 :
3350 GOSUB47000
3494 PRINT:PRINT:PRINT
3545 PRINTTAB(13);"  I AM R2D2.":GOSUB9840:FORD=1TO1000:NEXTD
3550 PRINT"[145]                            ":GOSUB18000
3551 PRINT"WHAT IS YOUR NAME  ?":GOSUB9840:PRINT"[145]";TAB(23):INPUTNA$
3552 PRINT"[145]                             "
3553 PRINT"[145]THAT'S A FUNNY NAME.        ":GOSUB9820:FORD=1TO2000:NEXTD
3554 PRINT"[147]":REM**** STARSHIPS *****
3561 GOSUB20000
3564 GOSUB40000
3566 GOSUB42000
3567 GOSUB44000
3568 FORK=1TO100:NEXTK
3569 :
3570 GOSUB50000:REM** SCREEN BLANKING **
3572 :
3590 GOSUB47000:REM**** R2D2 ****
3591 :
3592 PRINT:PRINTTAB(10);"THAT WAS A STARSHIP!":GOSUB9820:FORD=1TO2000:NEXTD
3610 PRINT"[145]   I AM ABOUT TO LEAVE FOR THE GALAXY ":PRINT
3630 PRINT" DIVISO WITH A STAR FLEET OF 155 SHIPS.":PRINT
3640 PRINT" WE WILL FLY IN A POD FORMATION." :FORK=1TO2:GOSUB9840:NEXTK
3650 :
3651 GOSUB18000:REM** FIDDLEPROOFING **
3652 GOSUB48005:REM** SPACE BAR ****
3657 GOSUB33000:GOSUB5595
3665 GOSUB47000:REM*** R2D2 ***
3667 FORK=1TO1000:NEXTK
3670 PRINT:PRINT"     EACH POD IS TO HAVE 31 STARSHIPS.":PRINT
3690 PRINT"I NEED TO KNOW HOW MANY POD COMMANDERS ":PRINT
3710 PRINT"TO CALL UP. HELP ME FIGURE IT OUT.":GOSUB9840:FORK=1TO1200:NEXTK
3740 GOSUB18000
3750 RETURN
3760 :
3761 REM**** R2D2 WALKS ****
3770 PRINT"[147]"
3790 FORX=0TO15
3810 PRINT"[147]";TAB(X);"  [206][163][163][163][163][205]  "
3830 PRINTTAB(X);" [206]  [205] . [165] "
3850 PRINTTAB(X);"[206]    [205]  [165] "
3870 PRINTTAB(X);"[205]  [167] .[205][206]  "
3890 PRINTTAB(X);" [205] [167]  [206]   "
3910 PRINTTAB(X);"  [205][167] [206]    "
3930 PRINTTAB(X);"  [167][167][206]     "
3950 PRINTTAB(X);"  [167][167]      "
3970 PRINTTAB(X);"  [167] [205]     "
3990 PRINTTAB(X);"   [163][163]     "
4010 FORT=0TO100:NEXTT
4030 NEXTX
4050 RETURN
4768 :
4769 REM***** PODS *****
4770 PRINT"[147]"TAB(1);"POD1 "
4771 FORX=6TO36
4772 PRINT"[145]";TAB(X);"*":FORD=1TO100:NEXTD:NEXTX:PRINT
4790 FORK=1TO500:NEXTK
4810 PRINT"
4830 [153][163]1);"POD2 ******************************* ":[153]
4850 [129]K[178]1[164]500:[130]K
4870 [153]"
4890 PRINTTAB(1);"POD3 ******************************* ":PRINT
4910 FORK=1TO500:NEXTK
4930 PRINT"
4950 [153][163]1);"POD4 ******************************* ":[153]
4970 [129]K[178]1[164]500:[130]K
4990 [153]"
5189 PRINTTAB(1);"POD5 ******************************* ":FORK=1TO500:NEXTK
5190 PRINT
5191 CP=CP+1
5192 IFCP=2THENGOTO5200
5193 FORX=1TO31:REM HORIZONTAL COUNTER
5194 PRINT"[145]";TAB(X+4);X:FORK=1TO100:NEXTK
5196 NEXTX:GOSUB48000
5198 IFCP=1THEN5220
5200 PRINT"WE NEED FIVE POD COMMANDERS.":FORD=1TO2000:NEXTD:PRINT
5205 :
5210 GOSUB18100:RETURN
5220 GOSUB18000:GOSUB48000
5230 RETURN
5497 :
5498 REM****** STAR GENERATOR ******
5595 PRINT""
6000 PRINT"  [164][164][164][164][164][164][164][164][164][164][164][164][164]
6010 [153]" THEN             (null)
6020 PRINT" [167]   DIVISON    [205]
6030 [153]" THEN 1 000 000 KM (null)
6040 PRINT" [167][164][164][164][164][164][164][164][164][164][164][164][164][164][206]
6050 [153]"
6052 GOSUB48100:REM UP UP AND AWAY
6055 GOSUB51000:REM*** POD ACTION ***
6060 FORK=1TO2000:NEXT
6070 RETURN
7898 :
7899 :
7900 PRINT"[147]     CHOOSE A NUMBER.":PRINT:PRINT
7902 PRINT"  1. DO A REVIEW QUESTION.":PRINT
7904 PRINT"  2. DO A HARDER QUESTION.":PRINT
7906 PRINT"  3. DO A TEST QUESTION.":PRINT
7908 PRINT"  4. END THE PROGRAM."
7912 GETZ$:IFZ$=""THEN7912
7914 IFZ$<"1"ORZ$>"4"THEN7900
7916 ONVAL(Z$)GOTO9200,8000,8093,9100
7997 :
7998 :
7999 REM**** HARDER WORK BEGINS ****
8000 PRINT"[147]";:GOSUB47000
8002 PRINT:PRINT"SOMETIMES THE 'HINT' DOESN'T WORK.":GOSUB9820:PRINT
8004 PRINT" WATCH THIS.":FORD=1TO1000:NEXTD
8006 GOSUB18000:GOSUB48000
8010 PRINT"[147]"
8012 PRINT"        0
8014 [153]"       TOTOTOTOTO
8016 PRINT"     24)192
8018 [129]K[178]1[164]1000:[130]K
8020 [153]"LOAD"
8022 [153]"        00
8024 PRINT"       [164][164][164][164][164]
8026 [153]"     24)192
8029 FORK=1TO1000:NEXTK
8030 PRINT"NOW WE ASK:":PRINT
8032 PRINT"HOW MANY GROUPS OF 24 ARE IN 192?":FORK=1TO4000:NEXTK
8041 FORK=1TO1000:NEXTK:GOSUB17700:REM       ***** FLASHING NUMBER *****
8042 GOSUB18000:REM** FIDDLEPROOFING ***
8043 PRINT:INPUT"SO HOW MANY 24'S ARE IN 192";C
8044 IFC<>9THENGOTO8056
8048 GOSUB47000:REM R2D2 FRONT VIEW
8049 PRINT"THAT LOOKS LIKE THE CORRECT ANSWER......"
8050 PRINT"BUT LET'S SEE.": GOSUB9820:GOSUB18000:GOSUB48005:GOSUB16100
8051 REM** GET MORE ROOM ***
8052 GOSUB11630:GOTO58094
8056 GOSUB47000
8058 PRINT
8060 PRINTTAB(10);"2+2+2+2+2+2+2+2+2+1=19":FORD=1TO1000:NEXTD:PRINT
8080 PRINT"THERE ARE NINE 2'S IN 19.":GOSUB9840
8081 FORK=1TO1000:NEXTK:GOSUB18000
8082 GOSUB48005
8083 :
8084 GOSUB11630:REM*** GET MORE ROOM ***
8085 GOTO58094:REM HARDER TEST QUESTION
8086 :
8092 :
8093 REM: EASY TEST QUESTION BEGINS
8094 PRINT"[147]"TAB(11);"[164][164][164][164][164]"
8095 PRINTTAB(9);"83)249"
8096 PRINT"NOW WRITE THIS PROBLEM DOWN ON A PIECE  OF PAPER.":PRINT
8097 PRINTTAB(1);"SEE IF YOU CAN SOLVE IT.":FORK=1TO3000:NEXTK:GOSUB18000
8098 PRINT""TAB(4);"PRESS SPACE BAR[146] TO SEE THE ANSWER."
8100 GETM$
8105 IFM$=""THEN8100
8106 M=ASC(M$)
8107 IFM<>160ANDM<>32THEN8100
9003 PRINT"[147]"
9004 PRINT"           [164][164][164][164][164]
9005 [153]"         83)249
9006 FORK=1TO2000:NEXTK
9010 PRINT"[147]"
9012 PRINT"            0
9014 [153]"           TOTOTOTOTO
9016 PRINT"         83)249
9018 [129]K[178]1[164]1000:[130]K
9020 [153]"LOAD"
9022 [153]"            00
9024 PRINT"           [164][164][164][164][164]
9026 [153]"         83)249
9028 FORK=1TO1000:NEXTK
9030 PRINT"[147]"
9032 PRINT"            003
9034 [153]"           TOTOTOTOTO
9036 PRINT"         83)249
9038 [129]K[178]1[164]1000:[130]K
9040 [153]"LOAD"
9042 [153]"            003
9044 PRINT"           [164][164][164][164][164]
9046 [153]"         83)249
9048 PRINT"            249
9050 [129]K[178]1[164]1000:[130]K
9060 [153]"LOAD"
9062 [153]"            003
9064 PRINT"           [164][164][164][164][164]
9066 [153]"         83)249
9068 PRINT"            249
9070 [153]"            TAB(TAB(TAB(
9080 FORK=1TO1000:NEXTK
9082 PRINT"[147]"
9084 PRINT"            003
9086 [153]"           TOTOTOTOTO
9088 PRINT"         83)249
9089 [153]"            249
9090 PRINT"            [163][163][163]
9092 [153]"            000
9094 FORK=1TO3000:NEXTK:GOSUB9600:FORD=1TO1000:NEXTD:REM**** WIPEOUT ****
9095 GOSUB3770:GOSUB47000:REM R2D2 TALK
9096 PRINT"SO LONG ";NA$;"."
9097 GOSUB9840:RESTORE:FORD=1TO1000:NEXTD:PRINT"[147]":GOSUB45498
9098 GOSUB48100:REM*** STAR WAR THEME
9099 PRINT"[147]":GOSUB9600
9100 PRINT"[147]";:FORSV=15TO1STEP-1:POKE54296,SV:FORD=1TO10:NEXTD:NEXTSV
9101 GOTO 10000
9102 REM**** REVIEW QUESTION *****
9200 PRINT"[147]";:PRINT""
9202 PRINT"       [164][164][164][164][164]"
9204 PRINT"     41)246  "
9206 PRINT:FORK=1TO2000:NEXTK:POKE1352,178
9208 PRINT"NOW WE ASK:"
9210 PRINT"HOW MANY GROUPS OF 41 ARE IN 2?":FORK=1TO200:NEXTK
9212 PRINT""
9214 FORK=1TO1000:NEXTK:PRINT"":GOSUB18000
9216 INPUT"TYPE THE NUMBER";A
9218 IFA<>0THEN9230
9222 GOSUB47000
9224 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORD=1TO1000:NEXTD
9226 GOTO9236
9230 GOSUB47000
9232 PRINT"YOU CAN'T GET A GROUP OF 41 FROM 2.":GOSUB9840
9233 FORD=1TO1000:NEXTD:GOSUB18000:GOSUB48005
9236 PRINT"[147]"
9240 PRINT"        "
9242 PRINT"       [164][164][164][164][164]"
9244 PRINT"     41)246"
9246 FORK=1TO1000:NEXTK
9248 PRINT"THERE ARE NO GROUPS 0F 41 IN 2.":FORK=1TO3000:NEXTK
9250 PRINT"";TAB(7);0
9252 PRINT"                                                   "
9254 FORK=1TO2000:NEXTK:POKE1352,178:POKE1353,180
9256 PRINT"NOW WE ASK:":PRINT
9258 PRINT"HOW MANY GROUPS OF 41 ARE IN 24?"
9260 FORK=1TO1000:NEXTK:PRINT""
9262 PRINT""
9264 PRINT:FORK=1TO1000:NEXTK:GOSUB18000
9266 INPUT"TYPE THE NUMBER";B
9268 IFB<>0THEN9280
9272 GOSUB47000
9274 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":FORK=1TO500:NEXTK:GOSUB9820
9276 GOTO9283
9280 GOSUB47000
9282 PRINT" YOU CAN'T GET A GROUP OF 41 FROM 24.":GOSUB9840
9283 FORD=1TO1000:NEXTD:GOSUB18000:GOSUB48005
9286 PRINT"[147]":PRINT
9288 PRINT"";TAB(8);"0"
9290 PRINT"       [164][164][164][164][164]"
9292 PRINT"     41)246 "
9294 FORK=1TO2000:NEXTK
9296 PRINT"THERE ARE NO GROUPS OF 41 IN 24.":FORK=1TO6000:NEXTK
9298 PRINT"";TAB(8);"00"
9300 PRINT"                                                              "
9304 FORK=1TO3000:NEXTK
9306 PRINT"NOW WE ASK:":PRINT
9308 PRINT"HOW MANY GROUPS OF 41 ARE IN 246?":FORK=1TO3000:NEXTK
9310 PRINT""
9314 PRINT""
9318 PRINT"HINT-FLASHING NUMBERS[146]"
9321 FORK=1TO1000:NEXTK
9322 GOSUB17500:REM*** FLASHING NUMBER
9323 GOSUB18000:REM*** FIDDLEPROOFING
9325 PRINT:INPUT"SO HOW MANY 41'S ARE IN 246";C
9328 IFC=6THENGOTO9354
9338 GOSUB47000
9340 PRINTTAB(12);"SORRY ";NA$;".":GOSUB9840:PRINT
9342 PRINTTAB(6);"4 + 4 + 4 + 4 + 4 + 4 = 24":FORD=1TO1000:NEXTD:PRINT
9343 PRINT"THERE ARE SIX 4'S IN 24.":GOSUB9840
9344 FORK=1TO1000:NEXTK:GOSUB18000:GOSUB48005
9354 PRINT"[147]":PRINT
9356 PRINT"";TAB(8);"00"
9358 PRINT"       [164][164][164][164][164]"
9360 PRINT"     41)246":FORK=1TO2000:NEXTK
9362 PRINT"THERE ARE SIX 4'S IN 24."
9364 PRINT" SO"
9368 PRINT" THERE ARE PROBABLY SIX 41'S IN 246.":GOSUB18000:GOSUB48005
9369 GOSUB16100
9370 PRINT"";TAB(8);"00"
9372 PRINT"                                                                "
9373 PRINT"                                                                  "
9374 FORSI=0TO6:REM*** DROP IN A SIX **
9375 POKE1034+(SI*40),54
9376 IFSI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO9378
9377 GOSUB9920:FORD=1TO300:NEXTD
9378 POKE1034+(SI*40),32:NEXTSI
9379 POKE1274,54:FORD=1TO500:NEXTD
9380 PRINT""
9381 PRINT"NOW WE MULTIPLY 6*41 AND PUT "
9382 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
9383 GOSUB17800:FORD=1TO1000:NEXTD:GOSUB18000:REM*** FIDDLEPROOFING ***
9384 GOSUB48005:REM*** SPACE BAR ***
9392 PRINT"[147]":PRINT
9394 PRINT"";TAB(8);"006"
9396 PRINT"       [164][164][164][164][164]"
9398 PRINT"     41)246":FORK=1TO1000:NEXTK
9400 PRINT"6*41 IS 246.":FORK=1TO3000:NEXTK
9402 PRINT"";TAB(8);"246"
9404 PRINTTAB(8);"[163][163][163]"
9406 PRINT"                                                                "
9408 FORK=1TO1000:NEXTK
9410 PRINT" SUBTRACT."
9412 FORK=1TO1000:NEXTK:GOSUB18000
9414 GOSUB48005:REM*** SPACE BAR ***
9422 PRINT"[147]":PRINT
9424 PRINT"";TAB(8);"006"
9426 PRINT"       [164][164][164][164][164]"
9428 PRINT"     41)246 "
9430 PRINTTAB(8);"246"
9432 PRINTTAB(8);"[163][163][163]"
9434 PRINTTAB(8);"000"
9440 FORK=1TO2000:NEXTK
9450 GOSUB9600:REM*** WIPEOUT ***
9478 GOTO7900
9479 :
9599 :
9600 S=1184:F=1184+35:REM*** WIPEOUT **
9610 FORX=STOF
9620 POKEX,45
9630 NEXTX
9640 FORX=STOF
9650 POKEX,32
9660 NEXTX
9670 S=S+41:F=F+39
9680 IFS<FTHEN9610
9690 RETURN
9799 :
9819 :
9820 REM***** R2D2 SHORT TALK HI ****
9821 S=54272:DR=16
9822 FORL=STOS+23:POKEL,0:NEXT
9823 POKES+5,9:POKES+6,0
9824 REM
9825 FORK=1TO10
9827 POKES+1,34:POKES,75
9828 POKES+4,33
9829 FORT=1TODR:NEXT
9830 POKES+4,32:FORT=1TO50:NEXT
9831 POKES+1,43:POKES,52
9832 POKES+4,33
9833 POKE1163,160:FORD=1TO20:NEXT:POKE1163,32
9834 POKES+4,32:FORT=1TO50:NEXTT:NEXTK
9835 REM
9836 RETURN
9837 :
9839 :
9840 REM***** R2D2 SHORT TALK LOW ****
9842 S=54272:DR=16
9843 FORL=STOS+23:POKEL,0:NEXT
9844 POKES+5,9:POKES+6,0
9845 REM
9846 FORK=1TO10
9847 POKES+1,17:POKES,37
9848 POKES+4,33
9849 FORT=1TODR:NEXT
9850 POKES+4,32:FORT=1TO50:NEXT
9851 POKES+1,21:POKES,154
9852 POKES+4,33
9853 POKE1163,160:FORD=1TO20:NEXT:POKE1163,32
9854 POKES+4,32:FORT=1TO50:NEXTT:NEXTK
9855 REM
9856 RETURN
9857 :
9919 REM*** DROPPING TONES ***
9920 S=54272:DP=0:DR=64
9921 FORL=STOS+23:POKEL,0:NEXT
9922 POKES+5,9:POKES+6,0:REM ADSR
9923 REM
9924 DP=DP+1:ONDPGOTO9925,9926,9927,9928,9929,9930,9931
9925 POKES+1,28:POKES,214:GOTO9935
9926 POKES+1,25:POKES,177:GOTO9935
9927 POKES+1,22:POKES,227:GOTO9935
9928 POKES+1,21:POKES,154:GOTO9935
9929 POKES+1,19:POKES,63:GOTO9935
9930 POKES+1,17:POKES,37:GOTO9935
9931 POKES+1,15:POKES,70:GOTO9935
9935 POKES+4,33:REM GATE SAWTOOTH WAVEFORM
9937 FORT=1TODR:NEXTT
9940 POKES+4,32:FORT=1TO50:NEXTT:REM      RELEASE S W
9942 IFDP<7THENRETURN
9944 REM
9945 RETURN
10000 PRINT"[147] RETURNING TO THE DISK MENU
10010 [147]"MENU",8
10020 [138]
10030 [128]
11627 :
11628 [143]**** CONTINUE HARDER WORK ****
11629 :
11630 [153]"LOAD":[153]
11650 [153]"";[163]8);"00"
11670 [153]"       TOTOTOTOTO"
11690 [153]"     24)192":[129]K[178]1[164]2000:[130]K
11710 [153]"THERE ARE NINE 2'S IN 19."
11730 [153]" SO"
11750 [153]" THERE ARE PROBABLY NINE 24'S IN 192.":[141]18000:[141]48005
11760 [141]16100
11770 [153]"";[163]8);"00"
11790 [153]"                                                                "
11810 [153]"                                                                 "
11812 [129]NI[178]0[164]6:[143]*** DROP IN A NINE
11813 [151]1034[170](NI[172]40),57
11814 [139]NI[177]0[167][141]9924:[129]D[178]1[164]300:[130]D:[137]11816
11815 [141]9920:[129]D[178]1[164]300:[130]D
11816 [151]1034[170](NI[172]40),32:[130]NI
11819 [151]1274,57
11830 [129]K[178]1[164]500:[130]K
11850 [153]""
11870 [153]"NOW WE MULTIPLY 9*24 AND PUT "
11890 [153]"THE PRODUCT IN THE CORRECT PLACE.":[129]K[178]1[164]2000:[130]K
11900 [141]17800:[129]D[178]1[164]1000:[130]D:[141]18000
11910 [141]48005
11990 [153]"LOAD":[153]
12010 [153]"";[163]8);"009"
12030 [153]"       TOTOTOTOTO"
12050 [153]"     24)192":[129]K[178]1[164]1000:[130]K
12070 [153]"9*24 IS 216.":[129]K[178]1[164]4000:[130]K
12090 [153]"";[163]7);216
12110 [153][163]8);"TAB(TAB(TAB( "
12130 [153]"                                                              "
12150 [129]K[178]1[164]2000:[130]K
12170 [153]"WE SEE THAT 216 CAN'T BE SUBTRACTED "
12190 [153]"   SO WE WILL TRY A SMALLER NUMBER.":[129]D[178]1[164]4500:[130]D
12194 [141]47300:[129]D[178]1[164]2000:[130]D:[141]18000
12195 [153]:[133]"WHAT NUMBER SHOULD WE TRY";NU
12196 [139]NU[179][177]8[167][153]"THE NUMBER TO TRY IS 8.":[141]48000
12430 [153]"LOAD";[163]8);"00"
12450 [153]"       TOTOTOTOTO"
12470 [153]"     24)192":[129]D[178]1[164]1000:[130]D
12472 [129]EI[178]0[164]6:[143] DROP IN AN 8
12473 [151]1034[170](EI[172]40),56
12474 [139]EI[177]0[167][141]9924:[129]D[178]1[164]300:[130]D:[137]12476
12475 [141]9920:[129]D[178]1[164]300:[130]D
12476 [151]1034[170](EI[172]40),32:[130]EI
12477 [151]1274,56:[129]D[178]1[164]500:[130]D
12490 [153]"NOW WE MULTIPLY 8*24 AND PUT THE "
12510 [153]"PRODUCT IN THE CORRECT PLACE.":[129]D[178]1[164]2000:[130]D
12520 [141]17800:[129]D[178]1[164]1000:[130]D:[141]18000
12530 [141]48005:[143]*** SPACE BAR ***
12630 [153]"LOAD";[163]8);"008"
12650 [153]"       TOTOTOTOTO"
12670 [153]"     24)192"
12690 [129]D[178]1[164]1000:[130]D
12710 [153]"8*24 IS 192."
12730 [129]D[178]1[164]3000:[130]D
12750 [153]"";[163]8);"192"
12770 [153]"                                                            "
12790 [129]D[178]1[164]1000:[130]D
12810 [153]"";[163]8);"TAB(TAB(TAB(":[129]D[178]1[164]2000:[130]D
12830 [153]" SUBTRACT."
12850 [129]K[178]1[164]1000:[130]K:[141]18000
12870 [141]48005:[143]*** SPACE BAR ***
12950 [153]"LOAD":[153]
12970 [153]"";[163]8);"008"
12990 [153]"       TOTOTOTOTO"
13010 [153]"     24)192 "
13030 [153][163]8);"192"
13050 [153][163]8);"TAB(TAB(TAB("
13070 [153][163]8);"000"
13090 [129]K[178]1[164]3000:[130]K
13095 [141]9600:[143]**** WIPEOUT ****
13096 [142]:[143]*** TO LINE 8052 ***
14997 :
14998 :
14999 [143]**** STUDENT INSTRUCTIONS ****
15000 [153]"LOAD":[153]:[153]
15005 [153]"  HERE ARE TWO THINGS TO REMEMBER"
15010 [153]"  WHEN YOU WORK ON THIS PROGRAM."
15015 [129]D[178]1[164]3000:[130]D
15020 [153]"   FIRST WAIT WHEN YOU SEE THE FLASHING "
15025 [153]"  SQUARE YOU ARE TO TYPE IN SOME- "
15030 [153]"  THING AND THEN PRESS THE RETURNWAIT KEY.":[129]D[178]1[164]8000:[130]D
15035 [153]"   SECOND WAIT THE LONG BAR ON THE KEY-"
15040 [153]"  BOARD IS THE SPACE BARWAIT."
15042 [153]"  PRESS IT ONLY WHEN I TELL YOU.":[129]D[178]1[164]4000:[130]D:[141]18000
15043 [153]"  LIKE RIGHT NOW!"
15046 [141]48005
15050 [153]"LOAD  THIS PROGRAM WILL SHOW YOU HOW TO       SOLVE PROBLEMS.
15055 PRINT"  FIRST WE WILL SOLVE A SIMPLE
15060 [153]"  PROBLEM BY LOOKING AT SOME              PICTURES.
15065 PRINT"  THEN I WILL SHOW YOU HOW YOU
15070 [153]"  CAN DO IT WITH EASY MATH.":[129]D[178]1[164]4000:[130]D
15071 [153]"  THERE IS A QUIZ AT THE END OF THE       PROGRAM."
15072 [129]D[178]1[164]2000:[130]D
15075 [141]18000:[141]48005:[143]*** SPACE BAR ***
15085 [137]13
15998 :
15999 :
16000 [143]*** TEACHER INSTRUCTIONS ***
16010 [153]"LOADTEACHER INSTRUCTIONS"
16020 [153]" THIS PROGRAM REVIEWS THE GENERAL"
16030 [153]" CONCEPT OF DIVISION."
16040 [153]" THE PROGRAM SUPPORTS THE TEACHING "
16050 [153]" OF DIVISION (2 DIGIT DIVISORS)."
16052 [153]" THE INPUT TECHNIQUES AND PACE ARE "
16054 [153]" DESIGNED FOR A GRADE 5 READING LEVEL."
16055 [153]" THE STUDENT CAN CHOOSE THE LEVEL "
16060 [153]" OF DIFFICULTY."
16061 [153]" THE PROGRAM CONTAINS SOUND."
16064 :
16065 [141]48005:[143]*** SPACE BAR ***
16075 [137]13
16100 [153]"                                      ":[142]
17498 :
17499 [143]**** FLASHING NUMBERS ****
17500 [129]X[178]1[164]40
17502 [151]1349,180:[151]1352,178:[151]1353,180:[129]D[178]1[164]90:[130]D
17504 [151]1349,52:[151]1352,50:[151]1353,52:[129]D[178]1[164]90:[130]D:[130]X
17506 [142]
17598 :
17599 [143]**** FLASHING NUMBERS ****
17600 [129]X[178]1[164]40
17602 [151]1349,179:[151]1352,177:[151]1353,181:[129]D[178]1[164]90:[130]D
17604 [151]1349,51:[151]1352,49:[151]1353,53:[129]D[178]1[164]90:[130]D:[130]X
17606 [142]
17698 :
17699 [143]***** FLASHING NUMBERS *****
17700 [129]X[178]1[164]40
17702 [151]1349,178:[151]1352,177:[151]1353,185:[129]D[178]1[164]90:[130]D
17704 [151]1349,50:[151]1352,49:[151]1353,57:[129]D[178]1[164]90:[130]D:[130]X
17706 [142]
17800 [129]X[178]1[164]15:[151]1396,31:[129]D[178]1[164]90:[130]D:[143]*** FLASHING ARROW ***
17810 [151]1396,159:[129]D[178]1[164]90:[130]D:[130]X
17820 [142]
17998 :
17999 [143]**** FIDDLEPROOFING ****
18000 [129]D[178]1[164]20:[161]Z$:[130]D:[142]
18004 :
18099 :
18100 [153]"         OANDSGN  OANDSGN  OANDSGN  OANDSGN  OANDSGN
18110 PRINT"        [206]U   /U   [206]U   [206]U   [206]U                  [165][218]   [165][218]   [165][218]   [165][218]   [165][218]
18120 [153]"        THEN FN  THEN FN  THEN FN  THEN FN  THEN FN
18130 PRINT"        [167] [165]  [167] [165]  [167] [165]  [167] [165]  [167] [165]
18135 [142]
18198 :
18199 [143]***** COMMANDER LABEL *****
18200 [151]1277,3:[151]1278,15:[151]1279,13:[151]1280,13:[151]1281,1:[151]1282,14
18210 [151]1283,4:[151]1284,5:[151]1285,18:[151]1286,19
18220 [142]
19998 :
19999 :
20000 [153]"LOAD":[143]*** STAR TRAIL ***
20010 [151]1224[170]35,42:[141]30000
20020 [151]1224[170]35,32:[141]30000
20030 [151]1344[170]30,42:[141]30000
20040 [151]1344[170]30,32:[141]30000
20050 [151]1464[170]27,42:[141]30000
20060 [151]1464[170]27,32:[141]30000
20070 [151]1584[170]22,42:[141]30000
20080 [151]1584[170]22,32:[141]30000
20090 [151]1504[170]14,42:[141]30000
20100 [151]1504[170]14,32:[141]30000
20110 [151]1384[170]6,42:[141]30000
20120 [151]1384[170]6,32:[141]30000
30000 [129]D[178]1[164]100:[130]D:[142]
31200 V[178]1307:E[178]0
31202 [129]G[178]1[164]7:F[178]42
31205 [139]E[178]1[176]E[178]3[176]E[178]5[176]E[178]7[167]F[178]32
31210 [129]P[178]V[164]V[170]25:[151]P,F:[130]P
31220 [129]P[178]V[170]25[164]V[170]105[169]40:[151]P,F:[130]P
31230 [129]P[178]V[170]105[164]V[170]80[169][171]1:[151]P,F:[130]P
31240 [129]P[178]V[170]80[164]V[169][171]40:[151]P,F:[130]P
31245 E[178]E[170]1
31248 [130]G
31250 [142]
33000 [153]"LOAD":[143]++++UNIVERSE++++
33010 X[178]10:Y[178]2:[141]60000:[153]"    .     ."
33020 X[178]20:Y[178]4:[141]60000:[153]"        .            ."
33030 X[178]5:Y[178]6:[141]60000:[153]"           ."
33040 X[178]15:Y[178]8:[141]60000:[153]"       ."
33050 X[178]20:Y[178]10:[141]60000:[153]"         ."
33060 X[178]5:Y[178]11:[141]60000:[153]"     ."
33070 X[178]10:Y[178]15:[141]60000:[153]"       ."
33080 X[178]20:Y[178]16:[141]60000:[153]"     .   "
33090 X[178]15:Y[178]18:[141]60000:[153]"   .     "
34000 [142]
39998 :
39999 [143]**** STARSHIPS ****
40000 [153]"LOAD";:[153]""
40001 [153]"   (null) (null)
40010 PRINT"   [195] [146][195]
40020 [153]"   (null) (null)
40025 FORK=1TO200:NEXTK
40030 RETURN
42000 PRINT"[147]"
42001 PRINT"   [205]       [206]
42002 [153]"    (null)     (null)
42003 PRINT"     [205]   [206]
42004 [153]"         WAIT
42005 PRINT"[195][195][195][195][195][195] ..[146][195][195][195][195][195]"
42006 PRINT"         [146]
42007 [153]"     (null)   (null)
42008 PRINT"    [206]     [205]
42009 [153]"   (null)       (null)
42010 FORK=1TO200:NEXTK
42020 RETURN
44000 PRINT"[147]"
44010 PRINT"           [205]              [206]
44020 [153]"            (null)            (null)
44030 PRINT"             [205]          [206]
44040 [153]"              (null)        (null)
44050 PRINT"               [205]      [206]
44060 [153]"                STEP    (null)WAIT
44070 PRINT"                      [146]
44080 [153]"     LENLENLENLENLENLENLENLENLENLENLEN  LOG COS WAITLENLENLENLENLENLENLENLENLEN"
44090 [153]"                      WAIT
44100 PRINT"                [223]    [146][169]
44110 [153]"               (null)      (null)
44120 PRINT"              [206]        [205]
44130 [153]"             (null)          (null)
44140 PRINT"            [206]            [205]
44150 [153]"           (null)              (null)
44160 PRINT"[147]"
44170 RETURN
45498 REM****** STAR GENERATOR ******
45500 PRINT"[147]";
45502 Z=0
45510 FORK=1TO10:NEXTK:PRINT""
45520 FORD=1TOINT(22*RND(TI))
45530 PRINT"";:NEXTD
45540 FORR=1TOINT(40*RND(1))
45550 PRINT"";:NEXTR
45560 PRINT".":Z=Z+1
45570 FORT=1TO5:NEXTT
45572 IFZ=30THENRETURN
45573 GOTO45510
45999 :
46000 S=1024:F=1024+35:REM** WIPEOUT **
46010 FORX=STOF
46020 POKEX,45
46030 NEXTX
46040 FORX=STOF
46050 POKEX,32
46060 NEXTX
46070 S=S+41:F=F+39
46080 IFS<FTHEN46010
46090 RETURN
46100 FORL=1189TO1219:POKEL,160:NEXTL
46110 FORL=1829TO1859:POKEL,160:NEXTL
46120 FORL=1189TO1829STEP40:POKEL,160:NEXTL
46130 FORL=1219TO1859STEP40:POKEL,160:NEXT
46140 RETURN
46999 :
47000 PRINT"[147]";
47010 PRINT"                 [206][163][163][205]
47011 [153]"                 FNTAB(TAB(THEN
47012 PRINT"                [206][165].[164][167][205]
47013 [153]"                FNFN  THEN FN
47014 PRINT"                [165][165].[163][167] [165]
47015 [153]"                FNFN  THEN FN
47016 PRINT"               [206][206][163][163][163][163][205][205]
47017 [153]"               TAB(      TAB(
47050 RETURN
47298 :
47299 REM*** CROSS OUT WRONG ANSWER ***
47300 POKE1271,77:POKE1276,78
47310 POKE1312,77:POKE1315,78
47320 POKE1432,78:POKE1435,77
47330 POKE1471,78:POKE1476,77
47340 POKE1353,77:POKE1354,78
47345 POKE1393,78:POKE1394,77
47350 RETURN
47999 :
48000 REM*** BULLETPROOF SPACE BAR ***
48005 PRINT"PRESS SPACE BAR[146]."
48010 GETZ$:IFZ$=""THEN48010
48020 Z=ASC(Z$)
48030 IFZ<>160ANDZ<>32THEN48010
48040 RETURN
48098 :
48099 :
48100 REM*** MUSIC GENERATOR ****
48105 S=54272:SQ=SQ+1
48110 FORL=STOS+23:POKEL,0:NEXT
48115 IFSQ=1ORSQ=4THENPOKES+5,88:POKES+6,89:GOTO48130
48120 POKES+5,9:POKES+6,0
48125 REM
48130 GOSUB59100:REM** SET VOLUME ***
48140 READHF,LF,DR
48150 IFHF<0THENGOSUB59200:RETURN:REM***TURN OFF VOLUME***
48155 DR=DR*.8
48160 POKES+1,HF:POKES,LF
48170 POKES+4,33
48180 FORT=1TODR:NEXT
48190 POKES+4,32:FORT=1TO50:NEXT
48192 GOTO48140
48194 :
48198 :
48199 REM**** STAR WARS ****
48200 DATA9,159,128,9,159,128,9,159,128
48205 DATA12,216,512,19,63,512,17,37,128
48210 DATA16,47,128,14,107,128,25,177,512
48215 DATA19,63,256
48220 DATA17,37,128,16,47,128,14,107,128
48225 DATA25,177,512,19,63,256
48230 DATA17,37,128,16,47,128,17,37,128
48240 DATA14,107,512,9,159,128,9,159,128
48245 DATA12,216,512,19,63,512
48250 DATA17,37,128,16,47,128,14,107,128
48255 DATA25,177,512,19,63,256
48260 DATA17,37,128,16,47,128,14,107,128
48265 DATA25,177,512,19,63,256
48270 DATA17,37,128,16,47,128,17,37,128
48275 DATA14,107,1024,-1,-1,-1
48276 :
48299 REM**** UP UP AND AWAY ****
48300 DATA19,63,256,19,63,128,25,177,384
48305 DATA28,214,128,32,94,768
48310 DATA32,94,128,32,94,128,32,94,128
48315 DATA34,75,256,28,214,384
48320 DATA25,177,128,28,214,896,-1,-1,-1
48398 :
48498 :
48499 REM*** CANTINA BAND  ****
48500 DATA14,107,128,19,63,128,14,107,128
48505 DATA19,63,128
48508 DATA14,107,64,19,63,128,14,107,128
48510 DATA13,156,64,14,107,128
48512 DATA14,107,64,13,156,64,14,107,64
48515 DATA12,216,128
48517 DATA12,32,64,12,216,64,12,32,64
48520 DATA11,114,256,9,159,256
48522 DATA14,107,128,19,63,128,14,107,128
48525 DATA19,63,128
48527 DATA14,107,64,19,63,128,14,107,64
48535 DATA12,216,128,12,216,192,12,32,64
48540 DATA12,216,128
48542 DATA17,37,128,15,70,128,14,107,128
48545 DATA12,216,128
48547 DATA14,107,128,19,63,128,14,107,128
48550 DATA19,63,128
48552 DATA14,107,64,19,63,128,14,107,128
48555 DATA13,156,64,14,107,128
48557 DATA17,37,128,17,37,192
48560 DATA14,107,64,12,216,128
48562 DATA11,114,256,9,159,256
48565 DATA9,159,256,11,114,256
48567 DATA14,107,256,17,37,256
48570 DATA20,100,128,19,63,128,13,156,64
48572 DATA14,107,192,11,114,512
48575 DATA-1,-1,-1
49998 :
49999 REM**** SCREEN BLANKING ****
50000 FORK=1TO50:POKE53265,PEEK(53265)AND235:POKE53265,PEEK(53265)OR16:NEXTK
50005 FORD=1TO500:NEXTD
50010 RETURN
50998 :
50999 REM***** POD ACTION *****
51000 POD=1030:SR=0
51002 POKEPOD,42:SR=SR+1:POD=POD+41
51003 FORD=1TO50:NEXTD
51004 IFSR>5THENPOKEPOD-(6*41),32:FORD=1TO50:NEXTD
51005 IFPEEK(2014)=42THENPOKE1850,32:POKE1891,32:POKE1932,32:POKE1973,32
51006 POKE2014,32:IFPOD>2014THEN51100
51007 GOTO51002
51100 FORD=1TO70:NEXTD:RETURN
58091 :
58092 :
58093 REM**** HARD TEST QUESTION ****
58094 PRINT"[147]"TAB(11);"[164][164][164][164][164]"
58095 PRINTTAB(9);"27)189"
58096 PRINT"NOW WRITE THIS PROBLEM DOWN ON A PIECE     OF PAPER.":PRINT
58097 PRINTTAB(1);"SEE IF YOU CAN SOLVE IT.":FORK=1TO3000:NEXTK:GOSUB18000
58098 PRINT""TAB(4);"PRESS SPACE BAR[146] TO SEE THE ANSWER."
58100 GETM$:IFM$=""THEN58100
58102 M=ASC(M$)
58104 IFM<>160ANDM<>32THEN58100
59003 PRINT"[147]"
59004 PRINT"           [164][164][164][164][164]
59005 [153]"         27)189
59006 FORK=1TO2000:NEXTK
59010 PRINT"[147]"
59012 PRINT"            0
59014 [153]"           TOTOTOTOTO
59016 PRINT"         27)189
59018 [129]K[178]1[164]1000:[130]K
59020 [153]"LOAD"
59022 [153]"            00
59024 PRINT"           [164][164][164][164][164]
59026 [153]"         27)189
59028 FORK=1TO1000:NEXTK
59030 PRINT"[147]"
59032 PRINT"            007
59034 [153]"           TOTOTOTOTO
59036 PRINT"         27)189
59038 [129]K[178]1[164]1000:[130]K
59040 [153]"LOAD"
59042 [153]"            007
59044 PRINT"           [164][164][164][164][164]
59046 [153]"         27)189
59048 PRINT"            189
59050 [129]K[178]1[164]1000:[130]K
59060 [153]"LOAD"
59062 [153]"            007
59064 PRINT"           [164][164][164][164][164]
59066 [153]"         27)189
59068 PRINT"            189
59070 [153]"            TAB(TAB(TAB(
59080 FORK=1TO1000:NEXTK
59082 PRINT"[147]"
59084 PRINT"            007
59086 [153]"           TOTOTOTOTO
59088 PRINT"         27)189
59089 [153]"            189
59090 PRINT"            [163][163][163]
59092 [153]"            000
59094 FORK=1TO3000:NEXTK:GOSUB9600:FORD=1TO1000:NEXTD:GOTO9095
59100 RETURN
59200 RETURN
60000 PRINT"";
60010 IFY<>0THENPOKE214,Y-1:PRINT
60020 POKE211,X
60030 RETURN
60050 REM WHC 91:03:20